home *** CD-ROM | disk | FTP | other *** search
/ Experience Hawaii / HAWAII.ISO / pc / shared.dir / 14193_Warning-Scripts from John.ls < prev    next >
Encoding:
Text File  |  1996-04-12  |  574 b   |  21 lines
  1. on FLIP
  2.   global prevClick, newClick
  3.   set newClick to the clickOn
  4.   puppetSprite(48, 1)
  5.   if newClick > prevClick then
  6.     set list to "R.1,R.2,R.3,R.1"
  7.     repeat with n = 1 to the number of items in list
  8.       set the castNum of sprite 48 to the number of cast item n of list
  9.       updateStage()
  10.     end repeat
  11.   else
  12.     set list to "R.3,R.2,R.1"
  13.     repeat with n = 1 to the number of items in list
  14.       set the castNum of sprite 48 to the number of cast item n of list
  15.       updateStage()
  16.     end repeat
  17.   end if
  18.   set prevClick to newClick
  19.   puppetSprite(48, 0)
  20. end
  21.